home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00274_Background Audio Class.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  694 b   |  25 lines
  1. property audioMember, audioChannel, audioController, audioPlaying
  2.  
  3. on new me, parameterList
  4.   set audioMember to getaProp(parameterList, #audioMember)
  5.   set audioChannel to 1
  6.   set audioController to the audioController of GetGlobal(#gTitleObject)
  7.   if stringp(audioMember) then
  8.     set audioMember to the number of member audioMember
  9.   end if
  10.   if audioMember > 0 then
  11.     preloadMember(member audioMember)
  12.   end if
  13.   if audioMember <= 0 then
  14.     StopAudio(audioController, audioChannel, audioMember)
  15.   else
  16.     PlayAudio(audioController, audioChannel, audioMember)
  17.   end if
  18.   return me
  19. end
  20.  
  21. on dispose me
  22.   StopAudio(audioController, audioChannel, audioMember)
  23.   set audioController to 0
  24. end
  25.